home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tttdem51.zip / WINDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-31  |  1KB  |  46 lines

  1. Program WinTTT5_Demo_1;
  2.  
  3. uses DOS, CRT, FastTTT5, WinTTT5;
  4.  
  5. var I : integer;
  6.     Ch : char;
  7.  
  8. Procedure Pause;
  9. var Ch : char;
  10. begin
  11.     WriteCenter(25,red,white,' press any key to continue ... ');
  12.     Ch := Readkey;
  13. end;
  14.  
  15. begin
  16.     Clrscr;
  17.     FillScreen(1,1,80,25,white,blue,'1');
  18.     GotoXY(80,25);                  {move the cursor to a unique location}
  19.     WriteCenter(1,white,black,' This is screen 1 ');
  20.     SaveScreen(1);
  21.     Pause;
  22.     FillScreen(1,1,80,25,red,lightgray,'2');
  23.     SaveScreen(2);
  24.     GotoXY(1,1);                    {put cursor in a different position}
  25.     WriteCenter(1,white,lightgray,'Press space bar to restore the screens 100 times el quicko');
  26.     pause;
  27.     RestoreScreen(1);
  28.     For I := 1 to 50 do
  29.     begin
  30.         RestoreScreen(2);
  31.         RestoreScreen(1);
  32.     end;
  33.     WriteCenter(1,white,lightgray,'Press any key to see the slide restore effect');
  34.     WriteCenter(10,yellow,black,'Yes, you just witnessed 100 screen restores in a flash');
  35.     pause;
  36.     SlideRestoreScreen(2,Left);
  37.     SlideRestoreScreen(1,Up);
  38.     SlideRestoreScreen(2,Down);
  39.     SlideRestoreScreen(1,Right);
  40.     WriteCenter(1,white,lightgray,'Press any key to continue');
  41.     WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
  42.     WriteAT(1,25,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  43.     Ch := Readkey;
  44.     Reset_StartUp_Mode;
  45. end.
  46.